home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
thor25upd.lha
/
THOR_2.5_upgrade
/
PatchTHOR
< prev
next >
Wrap
Text File
|
1997-09-22
|
2KB
|
78 lines
;
; Bugfix patch for THOR 2.5 - uses SPatch Copyright (C) SAS Institute, Inc.
;
FailAt 21
echo "THOR 2.5 seems to be installed in `GetEnv THOR/ThorPath`"
Assign THORPCH: `GetEnv THOR/ThorPath`
; Patch the THOR executable
echo "Patching THOR...."
spatch -pthor.pch THORPCH:thor
copy THOR.new THORPCH:THOR
delete THOR.new >nil:
; Patch the ConnectTHOR executable
If EXISTS "THORPCH:ConnectThor"
echo "Patching ConnectTHOR...."
spatch -pconnectthor.pch THORPCH:ConnectTHOR
copy ConnectTHOR.new THORPCH:ConnectTHOR
delete ConnectTHOR.new >nil:
EndIf
; Patch the utgui.library
echo "Patching utgui.library...."
spatch -putgui.pch THORPCH:libs/utgui.library
copy utgui.new THORPCH:libs/utgui.library
delete utgui.new >nil:
; Patch the utnet.library
If EXISTS "THORPCH:libs/utnet.library"
echo "Patching utnet.library...."
spatch -putnet.pch THORPCH:libs/utnet.library
copy utnet.new THORPCH:libs/utnet.library
delete utnet.new >nil:
EndIf
; Patch the bbsread.library
echo "Patching bbsread.library...."
spatch -pbbsread.pch THORPCH:libs/bbsread.library
copy bbsread.new THORPCH:libs/bbsread.library
delete bbsread.new >nil:
; Patch the THOR.guide
echo "Patching THOR.guide...."
spatch -oTHOR.guide.new -pTHOR.guide.pch THORPCH:docs/THOR.guide
copy THOR.guide.new THORPCH:docs/THOR.guide
delete THOR.guide.new >nil:
; Patch the ConfigTHOR.guide
echo "Patching ConfigTHOR.guide...."
spatch -oConfigTHOR.guide.new -pConfigTHOR.guide.pch THORPCH:docs/ConfigTHOR.guide
copy ConfigTHOR.guide.new THORPCH:docs/ConfigTHOR.guide
delete ConfigTHOR.guide.new >nil:
; Copy some small stuff over.
Copy clone classes/#? sys:classes/ all quiet
Copy clone rexx/#? THORPCH:rexx/ all quiet
Copy clone bin/#? THORPCH:bin/ all quiet
Copy clone catalogs/#? THORPCH:catalogs/ all quiet
Copy clone docs/#? THORPCH:docs/ all quiet
Assign THORPCH:
FailAt 11
Which >NIL: MultiView
If $RC EQ 0
MultiView >NIL: thor25a.readme
Else
More >NIL: thor25a.readme
If $RC GT 0
Echo "Remember to read thor25a.readme!"
EndIf
EndIf
avail flush >nil:
echo "Update finished!"